home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.1 (User) / OpenStep 4.1 (User).iso / usr / lib / NextPrinter / Drivers / NXShared / ehandler.ps < prev    next >
Encoding:
Text File  |  1995-04-12  |  2.4 KB  |  59 lines
  1. %!
  2. % lib/ehandler.ps -- Downloaded Error Break-page handler
  3. % GOVERNMENT END USERS: See Notice file in TranScript library directory
  4. % -- probably /usr/lib/ps/Notice
  5. % Removed exitserver part.  Mike Byron.  24-Feb-93.
  6. /$brkpage 64 dict def $brkpage begin
  7. /prnt
  8.  {dup type/stringtype ne{=string cvs}if dup length 6 mul/tx exch def/ty 10 def
  9.   currentpoint/toy exch def/tox exch def 1 setgray newpath
  10.   tox toy 2 sub moveto 0 ty rlineto tx 0 rlineto 0 ty neg rlineto
  11.   closepath fill tox toy moveto 0 setgray show}bind def
  12. /nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def
  13. /=={/cp 0 def typeprint nl}def
  14. /typeprint{dup type exec}readonly def
  15. /lmargin 72 def
  16. /rmargin 72 def
  17. /tprint
  18.    {dup length cp add rmargin gt{nl/cp 0 def}if
  19.     dup length cp add/cp exch def prnt}readonly def
  20. /cvsprint{=string cvs tprint( )tprint}readonly def
  21. /integertype{cvsprint}readonly def
  22. /realtype{cvsprint}readonly def
  23. /booleantype{cvsprint}readonly def
  24. /operatortype{(--)tprint =string cvs tprint(-- )tprint}readonly def
  25. /marktype{pop(-mark- )tprint}readonly def
  26. /dicttype{pop(-dictionary- )tprint}readonly def
  27. /nulltype{pop(-null- )tprint}readonly def
  28. /filetype{pop(-filestream- )tprint}readonly def
  29. /savetype{pop(-savelevel- )tprint}readonly def
  30. /fonttype{pop(-fontid- )tprint}readonly def
  31. /nametype{dup xcheck not{(/)tprint}if cvsprint}readonly def
  32. /stringtype
  33.  {dup rcheck{(\()tprint tprint(\))tprint}{pop(-string- )tprint}ifelse
  34.  }readonly def
  35. /arraytype
  36.  {dup rcheck{dup xcheck
  37.   {({)tprint{typeprint}forall(})tprint}
  38.   {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-array- )tprint}ifelse
  39.  }readonly def
  40. /packedarraytype
  41.  {dup rcheck{dup xcheck
  42.   {({)tprint{typeprint}forall(})tprint}
  43.   {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-packedarray- )tprint}ifelse
  44.  }readonly def
  45. /courier/Courier findfont 10 scalefont def
  46. end %$brkpage
  47. errordict/handleerror
  48.  {systemdict begin $error begin $brkpage begin newerror
  49.    {/newerror false store 
  50.     vmstatus pop pop 0 ne{grestoreall}if initgraphics courier setfont
  51.     lmargin 720 moveto(ERROR: )prnt errorname prnt
  52.     nl(OFFENDING COMMAND: )prnt/command load prnt
  53.     $error/ostack 
  54.     known{nl nl(STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if
  55.     systemdict/showpage get exec(%%[ Error: )print
  56.     errorname =print(; OffendingCommand: )print/command 
  57.     load =print( ]%%)= flush}if end end end}
  58. dup 0 systemdict put dup 4 $brkpage put bind readonly put
  59.